home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 32 / Mac Magazin and MacEasy Magazine CD - Issue 32.iso / Multimedia / MIDI / MidiChaos_15 Folder / MidiChaos_1.5 / Source / MidiChaosMain < prev    next >
Text File  |  1996-11-17  |  851b  |  44 lines
  1. \ MidiChaos allows realtime experimentation/composition by mapping
  2. \  output from chaotic functions to MIDI events.
  3. \
  4. \ Author: Darren Gibbs  Copyright 1990
  5. \ Date: 4/27/90 - 11/20/90
  6. \
  7.  
  8. ANEW TASK-MIDICHAOS
  9.  
  10. Assign MC: Squank:Sound:hmsl:midichaos_1.5
  11.  
  12.  Include mc:source:tools:textrom
  13.  Include mc:source:tools:floatingpoint
  14.  Include mc:source:tools:ctrl_fader
  15.  Include mc:source:tools:midifile_vref
  16.  Include mc:source:FP_Linear_Scaler
  17.  Include mc:source:Chaotic_Critter
  18.  Include mc:source:Voice
  19.  Include mc:source:Screen
  20.  Include mc:source:PresetManager
  21.  
  22. : MC.INIT  ( -- )
  23.     hmsl.init
  24.     5 time-advance !
  25.     fpinit
  26.     4 make.voices
  27.     init.main.screen
  28.     init.preset.screen
  29.     hmsl-graphics on
  30.     mc-screen default-screen !
  31.  0 remove: custom-screens
  32. ;
  33.  
  34. : MC.TERM  ( -- )
  35.     term.preset.screen
  36.     term.main.screen
  37.     free.voices
  38.     fpterm
  39.     hmsl.term
  40. ;
  41.  
  42. if.forgotten mc.term
  43.  
  44.